thing :: Integer
thing = sum [x^x|x<-[1..1000]]

euler_048 :: String
euler_048 = (reverse.(take 10).reverse) (show thing)